home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 24 / PC Gamer IT CD 24 2-2.iso / UTILITY / ajour201 / AJOUR.EXE / 0 / RCDATA / TAJOURMAIN / TAJOURMAIN.txt
Text File  |  1997-06-28  |  15KB  |  618 lines
  1. inherited AjourMain: TAjourMain
  2.   Left = 274
  3.   Top = 8
  4.   VertScrollBar.Range = 0
  5.   BorderIcons = [biSystemMenu, biMinimize, biHelp]
  6.   BorderStyle = bsSingle
  7.   Caption = 'Ajour'
  8.   ClientHeight = 418
  9.   ClientWidth = 344
  10.   Ctl3D = False
  11.   Color = clSilver
  12.   Menu = MainMenu1
  13.   Position = poScreenCenter
  14.   OnActivate = FormActivate
  15.   OnClose = FormClose
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   inherited BundPanel: TPanel [0]
  19.     Top = 380
  20.     Width = 344
  21.     Height = 37
  22.     Align = alNone
  23.     BevelOuter = bvRaised
  24.     BorderStyle = bsSingle
  25.     Color = clRed
  26.     Ctl3D = False
  27.     ParentCtl3D = False
  28.     TabOrder = 2
  29.     object Label3: TLabel [0]
  30.       Left = 24
  31.       Top = 5
  32.       Width = 238
  33.       Height = 26
  34.       AutoSize = False
  35.       Caption = 'Og n∩┐╜r du er helt f∩┐╜rdig'
  36.       Font.Color = clWhite
  37.       Font.Height = -19
  38.       Font.Name = 'Comic Sans MS'
  39.       Font.Style = []
  40.       ParentFont = False
  41.     end
  42.     inherited ExitKnap: TButton
  43.       Left = 264
  44.       Top = 6
  45.       Width = 63
  46.       Hint = 'Lukker Ajour ned'
  47.       Font.Color = clBlack
  48.       Font.Height = -13
  49.       Font.Name = 'Comic Sans MS'
  50.       Font.Style = [fsBold]
  51.       ParentFont = False
  52.       ParentShowHint = False
  53.       ShowHint = True
  54.     end
  55.   end
  56.   inherited TopPanel: TPanel [1]
  57.     Top = 1
  58.     Width = 344
  59.     Align = alNone
  60.     BorderStyle = bsSingle
  61.     Color = clRed
  62.     Ctl3D = False
  63.     ParentCtl3D = False
  64.     inherited Label1: TLabel
  65.       Left = 9
  66.       Top = -2
  67.       Width = 130
  68.       Height = 38
  69.       Align = alNone
  70.       AutoSize = False
  71.       Caption = 'Ajour'
  72.       Font.Color = clWhite
  73.       Font.Style = [fsBold]
  74.       Transparent = True
  75.     end
  76.     object Label2: TLabel
  77.       Left = 168
  78.       Top = 14
  79.       Width = 168
  80.       Height = 21
  81.       Alignment = taRightJustify
  82.       AutoSize = False
  83.       Caption = '∩┐╜1997 Henning Schulz'
  84.       Font.Color = clWhite
  85.       Font.Height = -13
  86.       Font.Name = 'Comic Sans MS'
  87.       Font.Style = []
  88.       ParentFont = False
  89.       WordWrap = True
  90.     end
  91.   end
  92.   object Emne: TPageControl
  93.     Left = 0
  94.     Top = 43
  95.     Width = 344
  96.     Height = 338
  97.     ActivePage = Aftaler
  98.     Font.Color = clBlack
  99.     Font.Height = -13
  100.     Font.Name = 'Comic Sans MS'
  101.     Font.Style = [fsBold]
  102.     ParentFont = False
  103.     TabOrder = 1
  104.     TabWidth = 113
  105.     object Aftaler: TTabSheet
  106.       Caption = 'Aftalekalender'
  107.       object Panel1: TPanel
  108.         Left = 1
  109.         Top = -1
  110.         Width = 337
  111.         Height = 306
  112.         BorderStyle = bsSingle
  113.         Color = clRed
  114.         Ctl3D = False
  115.         ParentCtl3D = False
  116.         TabOrder = 5
  117.         object Label4: TLabel
  118.           Left = 16
  119.           Top = 2
  120.           Width = 125
  121.           Height = 26
  122.           AutoSize = False
  123.           Caption = 'V∩┐╜lg datoen'
  124.           Font.Color = clWhite
  125.           Font.Height = -19
  126.           Font.Name = 'Comic Sans MS'
  127.           Font.Style = []
  128.           ParentFont = False
  129.         end
  130.         object Label5: TLabel
  131.           Left = 61
  132.           Top = 38
  133.           Width = 15
  134.           Height = 16
  135.           Alignment = taRightJustify
  136.           Caption = '∩┐╜r'
  137.           Font.Color = clWhite
  138.           Font.Height = -12
  139.           Font.Name = 'Comic Sans MS'
  140.           Font.Style = [fsBold]
  141.           ParentFont = False
  142.         end
  143.         object Label6: TLabel
  144.           Left = 50
  145.           Top = 63
  146.           Width = 38
  147.           Height = 16
  148.           Alignment = taRightJustify
  149.           Caption = 'M∩┐╜ned'
  150.           Font.Color = clWhite
  151.           Font.Height = -12
  152.           Font.Name = 'Comic Sans MS'
  153.           Font.Style = [fsBold]
  154.           ParentFont = False
  155.         end
  156.         object Label7: TLabel
  157.           Left = 16
  158.           Top = 149
  159.           Width = 308
  160.           Height = 26
  161.           AutoSize = False
  162.           Caption = 'Rediger datoens aftaler m.v.'
  163.           Font.Color = clWhite
  164.           Font.Height = -19
  165.           Font.Name = 'Comic Sans MS'
  166.           Font.Style = []
  167.           ParentFont = False
  168.         end
  169.         object Hellig: TLabel
  170.           Left = 4
  171.           Top = 86
  172.           Width = 117
  173.           Height = 64
  174.           Alignment = taRightJustify
  175.           AutoSize = False
  176.           Caption = 'P∩┐╜skedag'
  177.           Font.Color = clWhite
  178.           Font.Height = -11
  179.           Font.Name = 'Comic Sans MS'
  180.           Font.Style = []
  181.           ParentFont = False
  182.         end
  183.         object LblPrev: TLabel
  184.           Left = 136
  185.           Top = 16
  186.           Width = 68
  187.           Height = 15
  188.           Alignment = taRightJustify
  189.           AutoSize = False
  190.           Caption = 'Foreg∩┐╜ende'
  191.           Font.Color = clWhite
  192.           Font.Height = -11
  193.           Font.Name = 'Comic Sans MS'
  194.           Font.Style = []
  195.           ParentFont = False
  196.         end
  197.         object LblNext: TLabel
  198.           Left = 236
  199.           Top = 16
  200.           Width = 40
  201.           Height = 15
  202.           AutoSize = False
  203.           Caption = 'N∩┐╜ste'
  204.           Font.Color = clWhite
  205.           Font.Height = -11
  206.           Font.Name = 'Comic Sans MS'
  207.           Font.Style = []
  208.           ParentFont = False
  209.         end
  210.         object LblAftDag: TLabel
  211.           Left = 161
  212.           Top = 2
  213.           Width = 113
  214.           Height = 15
  215.           Alignment = taCenter
  216.           AutoSize = False
  217.           Caption = 'Aftaledag'
  218.           Font.Color = clWhite
  219.           Font.Height = -11
  220.           Font.Name = 'Comic Sans MS'
  221.           Font.Style = []
  222.           ParentFont = False
  223.         end
  224.         object IPTxt: TMemo
  225.           Left = 6
  226.           Top = 175
  227.           Width = 322
  228.           Height = 121
  229.           Hint = 'Rediger aftaler'
  230.           HelpContext = 4
  231.           Ctl3D = True
  232.           Font.Color = clWindowText
  233.           Font.Height = -11
  234.           Font.Name = 'MS Sans Serif'
  235.           Font.Style = []
  236.           ParentCtl3D = False
  237.           ParentFont = False
  238.           ParentShowHint = False
  239.           ScrollBars = ssVertical
  240.           ShowHint = True
  241.           TabOrder = 1
  242.           OnExit = IPTxtExit
  243.         end
  244.         object IdagKnap: TButton
  245.           Left = 281
  246.           Top = 6
  247.           Width = 45
  248.           Height = 25
  249.           Hint = 'S∩┐╜tter kalenderen til idag'
  250.           Caption = 'I dag'
  251.           Font.Color = clBlack
  252.           Font.Height = -13
  253.           Font.Name = 'Comic Sans MS'
  254.           Font.Style = [fsBold]
  255.           ParentFont = False
  256.           ParentShowHint = False
  257.           ShowHint = True
  258.           TabOrder = 0
  259.           TabStop = False
  260.           OnClick = IdagKnapClick
  261.         end
  262.         object AftBladr: TUpDown
  263.           Left = 205
  264.           Top = 17
  265.           Width = 29
  266.           Height = 15
  267.           Hint = 'Bladrer i aftalerne'
  268.           Min = -32767
  269.           Max = 32767
  270.           Orientation = udHorizontal
  271.           ParentShowHint = False
  272.           Position = 0
  273.           ShowHint = True
  274.           TabOrder = 2
  275.           Wrap = False
  276.           OnClick = AftBladrClick
  277.         end
  278.         object Dial1Knap: TButton
  279.           Left = 272
  280.           Top = 153
  281.           Width = 56
  282.           Height = 21
  283.           Caption = 'Ring op'
  284.           Font.Color = clBlack
  285.           Font.Height = -13
  286.           Font.Name = 'Comic Sans MS'
  287.           Font.Style = [fsBold]
  288.           ParentFont = False
  289.           ParentShowHint = False
  290.           ShowHint = True
  291.           TabOrder = 3
  292.           OnClick = Dial1KnapClick
  293.         end
  294.       end
  295.       object IPKal: TCalendar
  296.         Left = 130
  297.         Top = 33
  298.         Width = 199
  299.         Height = 115
  300.         Hint = 'V∩┐╜lg dag'
  301.         HelpContext = 3
  302.         Ctl3D = True
  303.         Font.Color = clWindowText
  304.         Font.Height = -11
  305.         Font.Name = 'MS Sans Serif'
  306.         Font.Style = []
  307.         ParentFont = False
  308.         ParentShowHint = False
  309.         ShowHint = True
  310.         StartOfWeek = 1
  311.         TabOrder = 4
  312.         OnChange = IPKalChange
  313.       end
  314.       object IPAar: TUpDown
  315.         Left = 112
  316.         Top = 38
  317.         Width = 15
  318.         Height = 19
  319.         Hint = 'V∩┐╜lg ∩┐╜r'
  320.         HelpContext = 1
  321.         Associate = VisAar
  322.         Min = 1901
  323.         Max = 2079
  324.         ParentShowHint = False
  325.         Position = 1901
  326.         ShowHint = True
  327.         TabOrder = 1
  328.         Thousands = False
  329.         Wrap = False
  330.         OnClick = IPAarClick
  331.       end
  332.       object IPMnd: TUpDown
  333.         Left = 112
  334.         Top = 63
  335.         Width = 15
  336.         Height = 19
  337.         Hint = 'V∩┐╜lg m∩┐╜ned'
  338.         HelpContext = 1
  339.         Associate = VisMnd
  340.         Min = 1
  341.         Max = 12
  342.         ParentShowHint = False
  343.         Position = 1
  344.         ShowHint = True
  345.         TabOrder = 3
  346.         Thousands = False
  347.         Wrap = False
  348.         OnClick = IPMndClick
  349.       end
  350.       object VisAar: TEdit
  351.         Left = 81
  352.         Top = 38
  353.         Width = 31
  354.         Height = 19
  355.         Hint = 'V∩┐╜lg ∩┐╜r'
  356.         HelpContext = 1
  357.         Font.Color = clWindowText
  358.         Font.Height = -11
  359.         Font.Name = 'MS Sans Serif'
  360.         Font.Style = []
  361.         ParentFont = False
  362.         ParentShowHint = False
  363.         ReadOnly = True
  364.         ShowHint = True
  365.         TabOrder = 0
  366.         Text = '1901'
  367.       end
  368.       object VisMnd: TEdit
  369.         Left = 93
  370.         Top = 63
  371.         Width = 19
  372.         Height = 19
  373.         Hint = 'V∩┐╜lg m∩┐╜ned'
  374.         HelpContext = 2
  375.         Font.Color = clWindowText
  376.         Font.Height = -11
  377.         Font.Name = 'MS Sans Serif'
  378.         Font.Style = []
  379.         ParentFont = False
  380.         ParentShowHint = False
  381.         ReadOnly = True
  382.         ShowHint = True
  383.         TabOrder = 2
  384.         Text = '1'
  385.       end
  386.     end
  387.     object Mrkdage: TTabSheet
  388.       Caption = 'M∩┐╜rkedage'
  389.       Font.Color = clBlack
  390.       Font.Height = -11
  391.       Font.Name = 'MS Sans Serif'
  392.       Font.Style = []
  393.       ParentFont = False
  394.       object Panel4: TPanel
  395.         Left = 1
  396.         Top = 0
  397.         Width = 337
  398.         Height = 305
  399.         BorderStyle = bsSingle
  400.         Caption = 'Panel3'
  401.         Color = clRed
  402.         Ctl3D = False
  403.         ParentCtl3D = False
  404.         TabOrder = 0
  405.         object Label10: TLabel
  406.           Left = 16
  407.           Top = 1
  408.           Width = 297
  409.           Height = 26
  410.           AutoSize = False
  411.           Caption = 'Rediger m∩┐╜rkedage'
  412.           Font.Color = clWhite
  413.           Font.Height = -19
  414.           Font.Name = 'Comic Sans MS'
  415.           Font.Style = []
  416.           ParentFont = False
  417.         end
  418.         object IPMrk: TStringGrid
  419.           Left = 6
  420.           Top = 30
  421.           Width = 322
  422.           Height = 265
  423.           Hint = 'Rediger m∩┐╜rkedage'
  424.           HelpContext = 5
  425.           ColCount = 3
  426.           Ctl3D = True
  427.           DefaultColWidth = 100
  428.           DefaultRowHeight = 15
  429.           FixedCols = 0
  430.           RowCount = 300
  431.           Options = [goVertLine, goHorzLine, goDrawFocusSelected, goEditing, goAlwaysShowEditor, goThumbTracking]
  432.           ParentCtl3D = False
  433.           ScrollBars = ssVertical
  434.           TabOrder = 0
  435.           OnExit = IPMrkExit
  436.           OnGetEditMask = IPMrkGetEditMask
  437.           OnSetEditText = IPMrkSetEditText
  438.           ColWidths = (
  439.             29
  440.             29
  441.             240)
  442.         end
  443.       end
  444.     end
  445.     object Opgaver: TTabSheet
  446.       Caption = 'Opgaver'
  447.       Font.Color = clBlack
  448.       Font.Height = -11
  449.       Font.Name = 'MS Sans Serif'
  450.       Font.Style = []
  451.       ParentFont = False
  452.       object Panel3: TPanel
  453.         Left = 1
  454.         Top = 0
  455.         Width = 337
  456.         Height = 305
  457.         BorderStyle = bsSingle
  458.         Caption = 'Panel3'
  459.         Color = clRed
  460.         TabOrder = 0
  461.         object Label9: TLabel
  462.           Left = 16
  463.           Top = 1
  464.           Width = 254
  465.           Height = 26
  466.           AutoSize = False
  467.           Caption = 'Rediger opgaver'
  468.           Font.Color = clWhite
  469.           Font.Height = -19
  470.           Font.Name = 'Comic Sans MS'
  471.           Font.Style = []
  472.           ParentFont = False
  473.         end
  474.         object IPNot: TMemo
  475.           Left = 6
  476.           Top = 30
  477.           Width = 322
  478.           Height = 265
  479.           Hint = 'Rediger opgaver'
  480.           HelpContext = 6
  481.           Ctl3D = True
  482.           ParentCtl3D = False
  483.           ParentShowHint = False
  484.           ScrollBars = ssVertical
  485.           ShowHint = True
  486.           TabOrder = 0
  487.           OnExit = IPNotExit
  488.         end
  489.         object Dial2Knap: TButton
  490.           Left = 272
  491.           Top = 4
  492.           Width = 56
  493.           Height = 23
  494.           Caption = 'Ring op'
  495.           Font.Color = clBlack
  496.           Font.Height = -13
  497.           Font.Name = 'Comic Sans MS'
  498.           Font.Style = [fsBold]
  499.           ParentFont = False
  500.           ParentShowHint = False
  501.           ShowHint = True
  502.           TabOrder = 1
  503.           OnClick = Dial2KnapClick
  504.         end
  505.       end
  506.     end
  507.   end
  508.   object MainMenu1: TMainMenu
  509.     object File1: TMenuItem
  510.       Caption = '&Filer'
  511.       ShortCut = 0
  512.       object Print1: TMenuItem
  513.         Caption = '&Udskriv...'
  514.         ShortCut = 0
  515.         OnClick = Print1Click
  516.       end
  517.       object N1: TMenuItem
  518.         Caption = '-'
  519.         ShortCut = 0
  520.       end
  521.       object Exit1: TMenuItem
  522.         Caption = 'A&fslut'
  523.         ShortCut = 0
  524.         OnClick = Exit1Click
  525.       end
  526.     end
  527.     object Lingua1: TMenuItem
  528.       Caption = 'Lingu&a'
  529.       ShortCut = 0
  530.       object Dansk1: TMenuItem
  531.         Caption = '&Dansk'
  532.         ShortCut = 0
  533.         OnClick = Dansk1Click
  534.       end
  535.       object English1: TMenuItem
  536.         Caption = '&English'
  537.         ShortCut = 0
  538.         OnClick = English1Click
  539.       end
  540.     end
  541.     object Options1: TMenuItem
  542.       Caption = 'Options'
  543.       GroupIndex = 1
  544.       ShortCut = 0
  545.       object SOW_S: TMenuItem
  546.         Caption = 'Start ugen s∩┐╜ndag'
  547.         GroupIndex = 1
  548.         RadioItem = True
  549.         ShortCut = 0
  550.         OnClick = SOW_SClick
  551.       end
  552.       object SOW_M: TMenuItem
  553.         Caption = 'Start ugen mandag'
  554.         Checked = True
  555.         GroupIndex = 1
  556.         RadioItem = True
  557.         ShortCut = 0
  558.         OnClick = SOW_MClick
  559.       end
  560.       object N3: TMenuItem
  561.         Caption = '-'
  562.         GroupIndex = 1
  563.         ShortCut = 0
  564.       end
  565.       object BG_farve: TMenuItem
  566.         Caption = 'Baggrunds&farve...'
  567.         GroupIndex = 1
  568.         ShortCut = 0
  569.         OnClick = BG_farveClick
  570.       end
  571.     end
  572.     object Help1: TMenuItem
  573.       Caption = '&Hj∩┐╜lp'
  574.       GroupIndex = 1
  575.       ShortCut = 0
  576.       object Contents1: TMenuItem
  577.         Caption = '&Indhold'
  578.         ShortCut = 0
  579.         OnClick = Contents1Click
  580.       end
  581.       object About1: TMenuItem
  582.         Caption = '&Om...'
  583.         ShortCut = 0
  584.         OnClick = About1Click
  585.       end
  586.     end
  587.   end
  588.   object PrintDialog1: TPrintDialog
  589.     Left = 30
  590.     Top = 1
  591.   end
  592.   object Timer1: TTimer
  593.     Interval = 10000
  594.     OnTimer = Timer1Timer
  595.     Left = 60
  596.     Top = 1
  597.   end
  598.   object ColorDialog1: TColorDialog
  599.     Ctl3D = True
  600.     Options = [cdPreventFullOpen]
  601.     Left = 94
  602.     Top = 2
  603.   end
  604.   object Comm: TComm32
  605.     DeviceName = 'COM2'
  606.     BaudRate = cbr14400
  607.     Parity = paNone
  608.     Stopbits = sb1_0
  609.     Databits = da8
  610.     MonitorEvents = [evRxChar]
  611.     ReadBufferSize = 4096
  612.     WriteBufferSize = 2048
  613.     OnRxCharSignal = CommRxCharSignal
  614.     Left = 126
  615.     Top = 2
  616.   end
  617. end
  618.